r~ 



LABEL 00O0OO000PRINTER0O175099CC tX QdJEC T/HEAUiFILE SQURCEF ILE = SYMBGl/T APEDSk; ENU<- 



OBJECT /READ 




[PEMJ 




• • 



*r 



? 

3 

4 
5 

'7 
9 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
26 
26 
27 
26 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
46 
46 
47 
48 
49 
50 
51 
52 



53 
54 



55 
56 



COMMENT! * 
* 

* 

* 
* 
* 
* 



B-5500 TAPE TO DISK ROUTINE MA 
TITLES B5500/BS700 MARK XIV SYSTEM 
FILE I D t SYMBOL/TAPEDSK TAPE j_P-i_ 



THIS MATERIAL IS PROPRIETARY TO 8U 
AND IS NOT TO BE REPRODUCED* USED* 
EXCEPT IK ACC O RDAN CE WITH PROGRAM 



Y 1969 BY P. E.G. 

RELEASE * 

SYMB QL2/F I LEUM, _ _*_ 



RHOUQHS CORPORATION * 
OR DISCLOSED * 
LlCE NS E-flB-UgflN * . 



WRITTEN AUTHORIZATION OF THE PATEN 
BURROUGHS CORPORATION* UETROIT, Ml 



T DIVISION OF 
CHIGAN 48232 



COPYRIGHT 1971* 1972 BURROUGHS CORPORATION 
AA320206 AA386657 



*i 



ory#,p*polish*; 

se*38000*jxoekauit mcp address used if in cold start 

LNJi£.M^MA£fliiiiaA£Q.I.tJtlJjp„ta.KJi.T..i 



_BtfilAL _. 

DEFINE M*MEM 

DEFINE FlLEBA 

...i^Afi£L..JIMEJi# 

BOOLEAN B; 

INTEGER J; 

..UilEGEH Ki_ __' 

REAL T APE* I NDX* CARD* LOADED* DISK* CHE Ck* I ; 

INTEGER ADDR; 

AR RAY AC*]*BUF FER[*] j __ _ _ 



ARRAY LOADBUTTONC303* 



0CT04 

ncTQi 



41000401570421* 
570QQOOO| nflfl n' 



% 



1 

-2- 



20 



0CTQ21l"0l/Ml3i0055* % 3 22 
0CT4l5bl24500OG442Si* % 4 23 

_Q£XflflAay. J^ifl4j6jOfl 6 4 * _JL 5 gfl 

0CT444lUl040253O305# % 6 25 

OCT0100023441310053' X 7 26 
ncT0062 Ul 14413 1 005^' X fi 2L. 



00020000 
00020100 
.C.QO'lOl.QX. 
00020102 
00020103 

0002010b 
00020106 
„Q.Q0£Q1Q7 
00020108 
00020109 
.Q.QJ2JQ.0.Q.0. 
00040000 
00041Q00 
Q.Q050Q.QO 
00052000 
OOQS300Q 

0X1054000 
0CO6O000 

00060100 

.00.0 7_0.QOO. 

00080000 
00090000 

.oxu-aaoaa 
oouoooo 

00120000 

.0X11300.0.0.- 

00140000 

00150000 



0CT006O013441310Q55' % 9 30 

OCT007^0i544i3i005b* X 10 31 
QL T0Q76U1744 1 3 10Q5S* 1_JJ 3_2_ 



OCT514000004770020 
OCT044110040100444 
0CT025i0lQ 420 $2 7 40 



0CT740bOO5lOlO0241 

o* o*o*o*o; 



0' 

1* 

1* 



12 
13 

JA. 



33 
34 
35 



. A R R AY M£S S AQ£.I15.1i=. 



15 

16 



36 
i7 



43 



"DISK FAI" 
"TAPE FAI" 
"NO M.CP F" 



"MCP FILE" 
"NOT IN D" 
"LOADER 0" 



"CRA FAIL" 
"SPO MIL" 
"DISK ROW" 



"LURE 

"LURE 

JLLLE* 



♦•000"* 
♦■000"* 



" LOA 
"IRCT 
"N DI 



,OED* B ' 
ORY*-"' 
SrU "> 



%0 



*3 

*5 



"URE+ 
#"URE* 
•" LENG 



%6 



TH; 



0* '••NEW 

"■ "»" . EN 
" OK TO C"#"ONTHM 



MCP"* 
TER"* 
UE*"* 



001/0000 
00180000 
.Q0.1V.QX1X1..Q.. 
00200000 
00210000 
00220000 
00 2 30000 
00240000 
Cin2b.Oi3.CiQ... 
00260000 
00270000 
0_0_2lClilO_Q.... 
00290000 
00300000 
00310QOO 

"00 320000" 
00321000 
00322000 



00323000 

00324000 
00325000 



o*o; 

ARRAY TABLE [5]»* "MCP "#"DI8K 
SAVE REAL PROCEDURE EOM; F8RWARDJ 



"/"SYSTEM ">0*Q> 



SAVE PROCEDURE KEVCI); VALUE 1/ REAL 
SAVE REAL PROCEDURE IDERR ( IOD*R ) i 
VALUE 10DJ 



1/ FOKWARD* 



00330000 
00340000 
Q0350000 
00*60000 
00370000 
00380000 



<«1 



SAVE 



REAL IOD#R; 

FORWARD* 
REAL PROCEDURE 



lOCAQDRESS*IOO>MASK)i 



00390000 
00400000 
00410000 



VALUE ADDRESS/IQD'MASK; 
REAL ADDRESS, UD/MaSk; 
BEGIN LAB EL Li 

REAL R#T; 

IOD ♦ ADDRESS OR IUD/ 
LI. _PLUQP3> HO)J 



r * eom; 

t •■ r and not mask) 
JE-XtL 26 »ZJL2-0 ThlN 



00420000 
00430000 

QJL4.4QQ.QQ 

06450600 

00460000 

oo4rooQ_Q 

00480000 
0049000C 



IF NOT T,t29«lJ THEN 

IF IOERR(IOD'R) THEN 

_io_t_ax 



UU TO L, 



end; 
save procedu 

V.ALU. 

BEGI 

g.»«* 

L: 



re diskwriteclengthj; 

£ length;real length; _ _ 

N LABEL L; 

real j*k; 

1 5 6 MM&26M MQALLHQLb.Ldl 1A23ALL ... 

P(IOCDISK»J,0)»DEL); 

MCCHECK] «■ MCDISKJJ 
. ■P.C.IQLPJ1EQK , J <LLL2_4 I 4 7JLiXtXLUILLLll 

STREAM(DlSKtX»*LENGTH* CHECK); 

BEGIN SI * DISK/ SI * SI+8; 
X C5C IF O J SC N FQ PC 



00510000 
00520000 

-oobanooo 



Dl * 
THEN 1M 



Di*e; 

L Y i s 



disk «■ tally; end; 

IF P THEN 
B£fiIia_JS_Jt_Ji±ljL 



-UX 



IF K S 5 
KEY(O); 



THEN GO TO Li 



ENDi- 



EN 

SAVE PROCE 

BE 



d; 
du 
g"i 



ST RE AM (DELTA*-" 30"/ DISK); 

BEGIN SI * LUC DELTA> 

ps ♦• 8 aqd; 

end; 

R£ s _pa_ceiapeinj; 

N REAL i; 
FOR I «■ 1 STEP 1 
DC UNTIL 



00540000 
00550000 
...OQSilQOO-. 
00560000 
00570000 

oosaoooo 

00590000 
00600000 
00610000, 
00620000 
00630000 
-j)X>6 40000- 
00650000 
00660000 
OQ6?Qonn 

00680000 
00690000 

-ao.7oo.oafl.. 



00710000 

00/20000 
007300 00 



VALUE N; REAL H) 



UNTIL N DO 
10 C TAPE/ i*l40000COO»» 6000000) # [ 2M 13; 



EN 
SAVE REAL 

_ VA 
RE 
BE 



d; 

PR 
LU 



00740000 

00750000 

.00160000. 

00 7 7 0000 

0078000C 
QQ79000Q 



OCEDURE 
E_lODi_ 



IOERRCIOD/R); 



AL 
GI 



R/Iqd; 

N REAL 
...LAJ_£JL_ 



00800000 
00810000 
008200 00 



k; 
JLXILL 



IF 
IF 



R.C 

R.C 



30133 i THEN PCl/RTN); 
28«U THEN 

IF R.C3I5J = 30 THEN 



008 30000 
00840000 
008 50000 



00860000 
00870000 
008 71000 



BEGIN 

FOR K:»l STEP 1 UNTIL 5 00 

IF(*» 3 IU(0»IQ0»g2000000)).[28ll3»0 



THEN 



00872000 
00873000 
00874000 



BEGIN 



go exit; 

ENO ELSE 
IF R.C3I 53 THEN 



00874500 
00675000 
00880000 



BEGIN 



FOH K «• 1 STEP 1 UNTIL 5 DO 

BEGIN P(lO(TAPE><?340000000/ 



00890000 
00900000 
00910000 



P6000000)/OEL)i 00920000 

IFCR*IO(0/I00#^6000000)) f 00930000 

Lgety » o then OOV40000 



55 
56 1 

62 



3 

4 
5 
6 

7 

9 

llO 
II 
1? 
13 
14 

1 V 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

3.3 _ 

!s4 

36 
36 

37 ~ 

136 

|*_ 

40 

41 

42 

43 



45 
46 
47 
48 
49 
50 
51 
62 
53 
54 
55 
56 



- Zlsjl 



end; 
.BJLfiUl 



END 



gd to exit; 



end end; 

KEYCIF R,C3:5J*10 THEN 6 ELSE 

-JJ__RjXl.ib_l=lXI.„T±itN_.Z_lLi£ 



FOH K M STEP I UNTIL 5 00 

IF CR*I0C0#iaD»P20OO000)3 
_.. _. -» I 2 8 ' 1 3 -»_flLlM£JL-fifl„£X.LU 



exiti end; 

save procedure key(i); value 

__ _aEJLIN_£llfiilM£& 

do until i = 3; 
end; 
save integer prdcedurf packer ; 



liIO.-lZ.UJJX 



begin; 

STREAM 

JEflJJL 



CAI«[BUFFERC9U*B*«CPACKERJ>J 

..S.1...I..W a; si ;« si » u _ 



di »s b; oi j= oi + 6; 

4CSKIP 3 SB; 3CIF SB THEN 



-. _._ENDi ._..- 

end; 
save procedure loader; 

B£SIN__ 



LABEL T OPPER ; 



TOPPER J. 



HEAL TEMMp; 
IF LOADED THEN KEY(5); 

. ...siRjEjuniajj: [ B uffer i xiiL^ismiEJLZRiULUUisa x. 

D«-PACKER INX BUFFER}! 
BEGIN SI 4-8; DS *• A WDS; END! 
.IE- P( RRR ).[24il] THEN *TF CRA RFAUY THEN 



00950000 
OOV6U0O0 

JQM1Q4LQH.. 
00980000 
00990000 

-CLLGfl.Qfl.O0_ 
OlOlOOQC 
OlOiiOOOO 
.01.02100.0.. 
01030000 
01040000 

0.10501)0.0. 

01060000 
01070000 

Q.tQ.e .ftoao. 

01090000 

01100000 

. Q1I10.QQ0 

01120000 

Dst=sET else skip ob;skip sB )); 01 1 30000 

__ Qli AQflQ 0. 

01150000 
01160000 
JU1Z0J2.Q.Q„~ 



REAL I; 



end; 

save procedure scanner; 
begin; 

STREAM 



PCIOCBUEFER INX Op P240 1200400U0000 , 
ELSE BLFFER[03 J= »IM 

IF BUF FERE D] . Ui44]-0 THEN GCJ TO TUPPl-RJ 
TEMMP is DISK; 
DISK i* BUFFER INX 11W 
LOADED j- TRUE ; 
MtDlSK] :» 1; 
DISKWRITEC30); 
DISK is TEMMP; 



^3000000), DEL) 



(BO: 
BEGIN 

SI i = 



: :"1 /Di «"[ T AbL E C «T3' )T 



1; 



DEBLANKI 



DI »= DI + i; 

6 3 (IF SC ■ " " 
IF SC * "/." THEN 



THEN SI is SI + 1 ELSE JUMP OUT); 



BEGIN 

ABLE! 



01180000 
01190000 

.0 4-2.00.000 

0J21OO00 
01220000 

Ql2-3.fi QQO 

01240000 

01250000 
012.60000 

012/0000 
01280000 
01290Q0Q 

6i3uoboo 

01310000 

OIJIOOO-O. 

01330000 
01340000 
01350000 
01360000" 
01370000 
01360 000 
01390000 
01400000 
OHiOOOO 



SI 

J10_ 



is 

TO 



SI ♦ l; 

oeblank; 



END ELSE 
IF SC - "8" 
7 (IF SC » 



01420000 
O14JO0O0 
014 40Q0Q 



THEN GO TU ABLE ELSE 

" w THEN DS 19 LIT * * ELSE 



BC 



IF SC s "/" THEN OS 
IF SC = "-" "MEN OS 

;= si; 



t 



LIT 

LIT 






ELSE 
ELSE 



01450000 
01460000 
0147000Q 



DS!*CHR); 



*1 



JEJiQ. 



I J* 

scanner; 



end; 
p; 



01480000 

01490000 
OlbOOOOO 



01510000 
01520000 
01 53QQQ Q, 



r~ 



SAVE 






l\ 



,13 
14 

llif 

17 

[18 

hi." 

,.Q 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

- 
31 

32 

33 
34 

Qfi 
(36 

37 ~ 

pe 

39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
SI 



52 
53 
54 

55 



56 
P7 



PROCEDURE CORRECT CTAPPE); 
VALUE TAPPE; 8UCIEAN fAPPE; 
ELEGl.N 



scanner; 

if tappe then 

elsf begtm 



01540000 
015SQ000 

..Ql&fLflo.afl. 



TABLEC23 «* TABLEC43 



TABLECO] 
SCANNER/ 
TA BU E [1] 



:= TABtt m]} 
;~ T AdLE LAU 



end; 
end correct; 

SAVE PRDCEDURF n iRFftTQPYSr Ah| » 



01S70000 

oibeoooo 
..Q-iSjaooflo 

01600000 
01610000 
016*0000 



BEGIN LABEL CWT> 

INTEGER DIRECTOP; 
BUFF EREO] ts o; 



01630000 
01640000 
01650000 



P(IO(BUFFER INX 0*#14000QQ40iQOOOO# )* DEL ) ; 
DIRECTOP J* BUFFER C2 3 > 

FOR ADDR * DIREC TOP * 4 S TEP 16 W_HJL£_ TRUJE_ 
BEGIN; STREAM C ADhS ; = C ADDR J * BUFFER ); 



01660000 
01670000 



DO 



01690000 
01/00000 



BEGIN 



SI 
US. 



:= ADRS; 



end; 
pciocbuffer inx 0>p 140000042000000,0 )#oel ); 

FOR INDX :c q STEP 2 UNTIL 2B DO __ 



01730000 

Ol?40000 

.JULM.QWL 



OWTi 



BEGIN IF CBUFFERU^9-1NDX] EtiV fU«) = NQT THEN KEY(4); 

IF (BUFFERt479-lisJX3 EdV T ABut £ J )*NQT THEN 
_ _ If_ 1 BU F F E Rl 4 80-InOXl EQ V J « B_Ll [ 13 )»NQT THE K GO 0* 

end; end; 

IF B*<CTABLEC33*BUFFER[4il-lNDXxl53)»0) THEN T ABLEC 33 *F ILEBaSE 
STREAM(A »sTABL£[3J* B t s [MESSAGE! 24 ] ] ) ; 



01/60000 
01770000 

_fl.UMO.0jQ 



oi/yoooo 

01800000 

Tjoiaioooo 



end; 



BEGIN SI := LQC ki DS:=8 DEC' 
=BUFFERC429-INDXx153; 



01820000 
; 01830000 

_ttUJ0jQJlQ_ 



eind; 



SAVE PROCEDURE FlNDMCP; 
BEGIN 

- I.F Plfififi.)-iJL2AIll 

BEGIN 

DO 
BEGIN 



01850000 
01855000 
018 60000 



iHOL 



I 85 P(BUFFE« INX 0); 

PCIOCBUFFER INX 0,^240 120040000000,07400000 )#DEl >; 

IF (*[BUFFER[Q3 JEQV 0)aN OT TH EN LOADER; 



scanner; 

if ctablec43 euv "file 
correctcfalse); 



01870000 
01880000 
OJjB.100.CiO. 
01*00000 
01*10000 
019 2000 
"Ofv 30000 ' 
01*40000 



")sNOT THEN 



.END. 



IF CTABLEC43. EQV "TAPE 
CORRECT(TRUE) 
UNTIL (PCRRR ) .[2<Hl]»Q 



")*NOT THEN 



01*60000 
01*70000 
01*80000 
01*90000 
02000000 
02010non 



end; 
directqryscan; 



OR ((TABLECOEQV'STOP ")=N0T 0)); 



end; 
save procedure updatedirect; 

BEGIN 



02011000 
02020000 
02030000 



02040000 
02050000 
_.fl£QJ>O_00Q 



AC113 «■ TABLE [33; 02070000 

AC 53 *s P(DUP#LQD*SSP); *CLEAR SIGN BIT SQ MCP ^QNT REMQVE 02080000 
ST REAMCABtc ADDR »( ( 2fl-lMPX)01V i> ) , A); OpOVOnan 



begin sii=loc ab;ds*«8 dec; end; 
pcioca inx 0**140360100100000,0), del); 

BDFFERCQJ »» ? 40 1 XFIND SYSTfM NUMBER 



02100000 
02110000 
02 1 2 000 



li 



10 



56 ' 

57. 



• • 



2 I 

r 

4 



(i 
7 
H 

i- 



,12 

i 13 l 
14 

(15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

n 

34 
35 

36 

37 ~ 

36 

M 

4CI 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

16 

57 



BUFFERtJ] «s 0; 

PCIOCBUFFER INX O*014OOO4OUOOOOOOO»*4OOOOOO)*GEL)J 

....INDX.. J.;-aUFFE H En.C ^ X2JJ-. _ 

INOX «* 11 +(IN0X*5); 



BUFFERC03 Is 0; 
PUq.(jyFF£R_lNX_ 



BUFFERCINDX+2J 
BUFFERCINDX+1 J 
BUFFERJINOXJ. 



o*Pmo QQO 04oioQOQo>o ), p£Lj ; 

:= TABLE C3JJ 

:= table m; 
» = table [oj; 



p(io(buffer inx 0#*1403601u0100000#0)#del)j 
mcoisk] j* messagec243; 

end; _.. _ __ 

SAVE PROCEDURE ASk; 
BEGIN 

STREAMiJj>_K*lL s Oifl£ s I.MtS3A&EiXa 33 i> 

BEGIN 

Sl«»LQC K; oS»»8 DEC; Ti«dI; Dl»=Ul-8; 

SJJjsLOC _J ; _Q I * "U 01 >« m»9J D S t «8 UE Ci 



0S:*8 FILL; 



di «*Di"e; 

end; 
pci0([messagfc16]] 



os«=8 fill; 

INX 0>P?40000000CGCOOO,0) 



PCI0CCWESSAGEC161] I NX 0,87*0000040000000*0) 
STREAM (Q J *e JB:» [MESSAGE I \61 1)} 

fi£6US_Sll£iLL _ 



»DEL); 



Li 
IF 
IF 



IF SCs' 
Sc _„ c ., 



" THEM BEGIN 
THEN S 1 I « S I + I 
THEN TALLYI=1 



si !ss: + i> ao to l end; 

ELSE GO ArtAY; 

ELSE GO ...A W A. Y ;. 



AWAYt gjsTally; 
eno stream; 

I F . N.Q..T . P... 1MZK 

BEGIN 

STREAM(Bl*CMFSSAGE[16n ); 
0S« = 17__U_T "MCP_ LOAD. 
KEY (8); 

end; 



ABORTED*"; 



._ end; _ _. 

SAVE REAL PROCEDUHE 

BEGIN GO TO 

FIRST :820: _GO_TQ 



eom; 

timer end' 
start; 



TIMER «822»P(INI); GO TO TIMER, 

JP24tG0 to Timer; 

«!25 t ,G_Q_ :ifl-.TJMtRl_ ..__ 

J826:G0 to timer; 

»827;P(P14»LCD*RTN); 

.__ »> 30l PCg l 5»L00/RTN )i 

»>3i:P(ei6#L0D*RTN); 
J(?32IP(P17#L0D#RTN3; 
» 34 I GO TO HMJ.RX 



*P36|G0 TO TIMER; 
»P37«G0 TO TIMER; 
%: > ;;:;: M ;; ;;;:»{ i ccnE STARTS 



a; INQUIRY HECJU_EST_ 
*HEPQHT FREE ADDRESS 
*DF #2 READ CHECK 
HERE? i :::;»:;: t ;: i x ; i 



:::<::: 



STARTIMA *[M[(*P(,E0M3)iNX 5) H 1023 [8 t 38* 103; 

DISK *■ A.C33I153; 
CHECK » DISK*1030; 



BUFFER 1= [M[CHECK+103O334lOO0C8l38»l0Ji 

P(64#STS); 

FINDMCP; 



FOR 



DO 



I ♦ 1 STEP 2 UNTIL 31 
P C 10 C0#P42OOG000O0& 



DO 
IC3i«3S53> 



?500000),DEL); 



02130000 
02140000 

..02-lSQODQ 
02160000 
02170000 

.52.1.8000.0 
021V0000 
02200000 
02210000 
O2226600 
02230000 

02_2AO.QQ.O 
0224100C 

02241J00 
02 2 4 1.2. 0.0 
02241300 
02241400 

.0224 IbOO. 

02241600 

02241700 

02.24J800 

02241900 

02242000 

..0224.2.100 
02242200 
02242300 

.02 24.2.4 Oq 

02242500 
02242600 
..02.242 ZOO. 
02242800 
02242900 
_Q2.24 300 
0224 3100 
02243200 
O22433OQ 
022b0000 
0226000C 
022.8 OX). QO 
02290000 
02300000 
023 10000 
02320000 
02330000 
02340000 



02350000 
02360000 
02370000 



02380000 

02390000 
024Q000 Q 



02410000 
02420000 
02430000 



02440000 
02450000 
02460000 



02470000 
02480000 
02490000 



li 



FOUND » 



GUTCHAJ 



FOR I * 1 STEP 2 UMTIl 31 DU 
BEGIN 
TAPE » = (A I 'MX 1 ) & U3i43» 51t 



i ; a iLJ"tj' 3j> 

l777O5flO0O00bo»»6560"000T,C26l7] 
CC*C'AC113> EflV(-FLAGC"LA8EL "))»N0T G)AN[) 

C C C *C A C 2 1 ] )EQV TABlE[23) _»_N QT Q)aND 

CC(*CAC33] )EQV "FILtOOO") 



IF IDCTAPE, ? 
IF 



* THEN 



O2S00O00 
02510000 

flZ5ifijQ.ft.£L 
02b30000 
02540000 
0_2_550000 



.END 



PC 1 OCT APE #P42U00O0O0O»*50OOOO)# DEl); 



'•NOT 0)1 HEN GU TO FOUND; 02560000 



until false; 



02570000 

og saooo o 



spacetape en; 

PC lQ(TAPE,Pi7770ba0000000# 0)>DEL); 
FOR I <- 1 STEP 2 UNTIL 512 DO 

IF c( _ A iU _ 19 v TABLEtO] ) »NCT CJ 
CCACI + U EOV TABLEll] ) »NCT f "6 ) 
THEN GO TO GOTCHA 
ELSE IF At 13 a H4 THEN Alli2.lL. 

SPACETAPE ci + n; 

.Pi. .. I Q-LIA ££_,<?! 7.7 7 05.40 0.fii0_Q.P_.... .»& liMLlL _ - 

Ji*A[9j; 

IF J GTR K THEN ASK; 

.lt£Ml£D. lR ECT; _ 

AODR: 
FOR 



02590000 
02600000 
0261 0Q0Q. 



AND 



02620000 

02630000 
0264Q0 0Q 



02650000 

02660000 
02670000 



02680000 
02690000 

-Q2iii.a.oaQ.. 



AC93 DIV 
I ♦■ 1 STEP 

BEGIN 



30/ 

1 UNTIL 



02701000 
027Q200Q 

J12Z.lil0.Qil 



ADOh DC 



PCIO CTAPE,P17770540000000 ,0>»DELJJ 

DISKWRITEUO); 

ELN.DJ . . 



02/i:0000 
02^30000 



IFCAODRJs J ^OU 30) > 
BEGIN 



THEN 



PCIO (TA P E »P17770500000000*0)»DEL) J 

ntCi/yoTTrr innnM 



end; 

PCIO 
IF B 



DISKWRITECADDR); 



LTAP 

THEN 



* P42000Q0000»0)#UEL); 

begin; 



STREAMCA«-[TAbLEC3]]*X*-CM 
BEG IN DI«-D 1» 15; 0S«-2ULIT" 



CMESSAGEC6]] ); 



si<-A;os*-8DEc;os4.LiT M «-"; 
di«-di-9;os«-8 fill; 
end; 



TO DEFAULT ADDRESS*"; 



IF J 



end; 
gtr k then 
begin; stream a: 3 cj-m»b*x s 



■C MLSSAGEL633 ); 



BEGIN 

DIt*LOC B;DS»*8 LIT " TO DEFAU"; 

sii»lqc b; dusx; dihoi + is; 



IF 8 Sc=OC THEN Ul«=Ul+20 ELSE 01 s=Cl-8; 
DSl=2 LIT " C"; 

s i:»lqc a; os» =e dec; 



DSt»X3 

end; 



LIT " SEG OVRFLW)*' 

'in osib8 kill; 



0271)0000 
02760000 
02770000. 
02771000 

02772000 
027 7 300 

02774000 

02775000 

_02_7J3.C)0.0_Q.. 

02781000 
02781100 
02781200 

"02781300" 
02781400 
0276150 
02761600 
02782000 
02762100 
02782200 
02782300 
027 82*100 
02782500 
02782600 
02762700 

02782800 
02782900 
02783000 



END; 02783100 

KEY (3); 02790000 

STREAMCL0ADeuTT0N*A+p2Q); BEGIN S1» L 0ADBuTT0N; DS+2Q WPS END; Q26uooqq 

p<o^sts#o#stf); ~~ 02810000 

GO TO FIRST; 02820000 

DO UNTIL FALSE; : 02830000 



b 



3 
4 
5 



END 



THERE FRED 



R P WC QJJ.N T jf_Nf.J5.RQ.Wf_.CEkL' 



0O0O00C0O0O0GC0Q)x>A43)M 
±>. .Q.E_S£ j_K___Jj_J_i_ H DR./.AR E _____ A X f_Oj..S #__ 



02840000 



1 

11 

12 
13 
14 
15 
16 
17 

r 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

133 

1 34 

3S 

36 

37 ~ 

36 

j9 

40 

41 

42 

43 

44 

45 

46 

47 

•8 

49 

50 

51 

52 

53 

54 

55 

56 



9 

10 

11 I 

12 

13 

14 I 

15 

16 

,7* 

IB 

19 

20* 

21 

22 

23 j 

24 

25 

26 

27 

28 

29 ' 

30 

31 

32 < 

33 

34 

35 i 

36 

37 

38 { 

39 

40 

4, < 

42 

43 

44 ' 

45 

46 

47 

48 

49 

50 I 

51 

52 

53 I 

54 

55 

56 I 



• • 



LABEL 00000O00OPRINTER0O175099CC tX QB JEC T /RE AUiF I LE SQURCEF IlE»SYMBOL/TAPEDSK; END* 



OBJECT /READ 



4 

6 
6 
/ 
8 
9 

in 

i ii 

H 



171 

its 

n9 

p_ 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

3 V 

37 
38 
39 
40 
41 
42 
43 



45 
46 
47 
48 
♦9 
50 
SI 
52 
53 
54 
55 
56 
67 



